Workplace Effectiveness:…ecision-Making Strategies/Workplace Effectiveness: Decision-Making Strategies.iso/pc/Files/Menu4.dxr/00009_Go movie behavior.ls

Text File | 1998-12-16 | 654 b | 32 lines

property clicked, movieChoice

on mouseDown me
  set the clicked of me to 1
end

on mouseUp me
  if the clicked of me then
    sound stop 1
    sound stop 2
    puppetSound(0)
    go(1, the movieChoice of me)
  end if
end

on mouseUpOutSide me
  set the clicked of me to 0
end

on beginSprite me
  set the clicked of me to 0
end

on getPropertyDescriptionList
  set p_list to [#movieChoice: [#comment: "Movie to open with this button:", #format: #string, #default: EMPTY]]
  return p_list
end

on getBehaviorDescription
  return "Navigate to another movie on mouseUp, based on property movieChoice." & RETURN & "Also stops any running audio/sounds."
end